library(DT)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readr)
library(readxl)
payroll <- read_excel("C:\\R Projects\\thesis\\project questionnaire os.xlsx") %>% 
  select(gender, age, income, edu)
## New names:
## * primary_trips -> primary_trips...1
## * primary_trips -> primary_trips...13
datatable(payroll, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
  )
)